home *** CD-ROM | disk | FTP | other *** search
/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / PersonalProductivity / Mail / MKDISKS.BAT < prev   
DOS Batch File  |  1997-04-14  |  7KB  |  273 lines
  1. @echo off
  2. Rem Make diskettes for Lotus Mail for the Internet
  3. if "%1"=="" goto usage
  4. if "%1"=="/?" goto usage
  5.  
  6. Rem Expects to be located in same level as disk directories
  7. set dk_drive=a:
  8.  
  9. Rem Skip over first shift
  10. goto cont
  11.  
  12. Rem Argument processing
  13. :loop
  14. shift
  15. :cont
  16.  
  17. if "%1"=="" goto finish
  18. if "%1"=="b:" goto setdrb
  19. if "%1"=="B:" goto setdrb
  20. if "%1"=="a:" goto setdra
  21. if "%1"=="A:" goto setdra
  22. if "%1"=="all" goto all
  23. if "%1"=="disk1" goto disk1
  24. if "%1"=="disk2" goto disk2
  25. if "%1"=="disk3" goto disk3
  26. if "%1"=="disk4" goto disk4
  27. if "%1"=="disk5" goto disk5
  28. if "%1"=="disk6" goto disk6
  29. if "%1"=="disk7" goto disk7
  30. if "%1"=="disk8" goto disk8
  31. if "%1"=="win95disk1" goto win951
  32. if "%1"=="win95disk2" goto win952
  33. if "%1"=="win95disk3" goto win953
  34. if "%1"=="winntdisk1" goto winnt1
  35. if "%1"=="winntdisk2" goto winnt2
  36. if "%1"=="winntdisk3" goto winnt3
  37. if "%1"=="ldapdisk1" goto ldap1
  38. if "%1"=="ldapdisk2" goto ldap2
  39.  
  40. goto unk_arg
  41.  
  42. Rem Set drive a:
  43. :setdra
  44. set dk_drive=a:
  45.  
  46. goto requirements
  47.  
  48. Rem Set drive b:
  49. :setdrb
  50. set dk_drive=b:
  51.  
  52. :requirements
  53. @echo.
  54. if not "%2"=="all" goto copyonedisk
  55. @echo To copy the images, you will need 16 blank formatted diskettes.
  56.  
  57. goto queryformat
  58.  
  59. :copyonedisk
  60. @echo To copy the image, you will need 1 blank formatted diskette.
  61.  
  62. :queryformat
  63. ccmyesno.exe "Do you want to format your diskettes? [y/n] " yY nN
  64. if errorlevel 2 goto noformat
  65. if errorlevel 1 goto format
  66.  
  67. :format
  68. format %dk_drive%
  69. if "%2"=="" goto usage
  70. goto loop
  71.  
  72. :noFormat
  73. if "%2"=="" goto usage
  74. goto loop
  75.  
  76. :all
  77.  
  78. Rem Disk 1
  79. :disk1
  80. @echo Insert Disk 1 into drive %dk_drive% to begin copying files.
  81. pause
  82. copy disk1\readme.txt %dk_drive%
  83. copy disk1\readme.400 %dk_drive%
  84. copy disk1\setup.exe %dk_drive%
  85. copy disk1\install.cit %dk_drive%
  86. copy disk1\_inst32i.ex_ %dk_drive%
  87. copy disk1\_setup.dll %dk_drive%
  88. copy disk1\setup.ini %dk_drive%
  89. copy disk1\setup.ins %dk_drive%
  90. copy disk1\_setup.lib %dk_drive%
  91. copy disk1\disk1.id %dk_drive%
  92. copy disk1\data.1 %dk_drive%
  93. copy disk1\setup.pkg %dk_drive%
  94. if not "%1"=="all" goto loop
  95.  
  96. Rem Disk 2
  97. :disk2
  98. @echo Insert Disk 2 into drive %dk_drive% to begin copying files.
  99. pause
  100. copy disk2\disk2.id %dk_drive%
  101. copy disk2\data.2 %dk_drive%
  102. if not "%1"=="all" goto loop
  103.  
  104. Rem Disk 3
  105. :disk3
  106. @echo Insert Disk 3 into drive %dk_drive% to begin copying files.
  107. pause
  108. copy disk3\disk3.id %dk_drive%
  109. copy disk3\data.3 %dk_drive%
  110. if not "%1"=="all" goto loop
  111.  
  112. Rem Disk 4
  113. :disk4
  114. @echo Insert Disk 4 into drive %dk_drive% to begin copying files.
  115. pause
  116. copy disk4\disk4.id %dk_drive%
  117. copy disk4\data.4 %dk_drive%
  118. if not "%1"=="all" goto loop
  119.  
  120. Rem Disk 5
  121. :disk5
  122. @echo Insert Disk 5 into drive %dk_drive% to begin copying files.
  123. pause
  124. copy disk5\disk5.id %dk_drive%
  125. copy disk5\data.5 %dk_drive%
  126. if not "%1"=="all" goto loop
  127.  
  128. Rem Disk 6
  129. :disk6
  130. @echo Insert Disk 6 into drive %dk_drive% to begin copying files.
  131. pause
  132. copy disk6\disk6.id %dk_drive%
  133. copy disk6\data.6 %dk_drive%
  134. if not "%1"=="all" goto loop
  135.  
  136. Rem Disk 7
  137. :disk7
  138. @echo Insert Disk 7 into drive %dk_drive% to begin copying files.
  139. pause
  140. copy disk7\disk7.id %dk_drive%
  141. copy disk7\data.7 %dk_drive%
  142. copy disk7\core.1 %dk_drive%
  143. if not "%1"=="all" goto loop
  144.  
  145. Rem Disk 8
  146. :disk8
  147. @echo Insert Disk 8 into drive %dk_drive% to begin copying files.
  148. pause
  149. copy disk8\disk8.id %dk_drive%
  150. copy disk8\core.2 %dk_drive%
  151. if not "%1"=="all" goto loop
  152.  
  153. Rem MAPI for Windows 95 Disk 1
  154. :win951
  155. @echo Insert Windows Messaging Disk 1 (Win 95) into drive %dk_drive% to begin copying files.
  156. pause
  157. label %dk_drive% R87650
  158. copy win95\setup.exe %dk_drive%
  159. copy win95\setup.ini %dk_drive%
  160. copy win95\setup.lst %dk_drive%
  161. copy win95\setup.tdf %dk_drive%
  162. copy win95\wmsset.inf %dk_drive%
  163. copy win95\wmsset.stf %dk_drive%
  164. copy win95\wmsset1.cab %dk_drive%
  165. if not "%1"=="all" goto loop
  166.  
  167. Rem MAPI Win95 Disk 2
  168. :win952
  169. @echo Insert Windows Messaging Disk 2 (Win 95) into drive %dk_drive% to begin copying files.
  170. pause
  171. label %dk_drive% R95040
  172. copy win95\wmsset2.cab %dk_drive%
  173. if not "%1"=="all" goto loop
  174.  
  175. Rem MAPI Win95 Disk 3
  176. :win953
  177. @echo Insert Windows Messaging Disk 3 (Win 95) into drive %dk_drive% to begin copying files.
  178. pause
  179. label %dk_drive% R95050
  180. copy win95\wmsset3.cab %dk_drive%
  181. if not "%1"=="all" goto loop
  182.  
  183. Rem MAPI WinNT Disk 1
  184. :winnt1
  185. @echo Insert Windows Messaging Disk 1 (Win NT) into drive %dk_drive% to begin copying files.
  186. pause
  187. label %dk_drive% R87620
  188. copy winnt\setup.exe %dk_drive%
  189. copy winnt\setup.ini %dk_drive%
  190. copy winnt\setup.lst %dk_drive%
  191. copy winnt\setup.tdf %dk_drive%
  192. copy winnt\wmsset.inf %dk_drive%
  193. copy winnt\wmsset.stf %dk_drive%
  194. copy winnt\wmsset1.cab %dk_drive%
  195. if not "%1"=="all" goto loop
  196.  
  197. Rem MAPI WinNT Disk 2
  198. :winnt2
  199. @echo Insert Windows Messaging Disk 2 (Win NT) into drive %dk_drive% to begin copying files.
  200. pause
  201. label %dk_drive% R87630
  202. copy winnt\wmsset2.cab %dk_drive%
  203. if not "%1"=="all" goto loop
  204.  
  205. Rem MAPI WinNT Disk 3
  206. :winnt3
  207. @echo Insert Windows Messaging Disk 3 (Win NT) into drive %dk_drive% to begin copying files.
  208. pause
  209. label %dk_drive% R87640
  210. copy winnt\wmsset3.cab %dk_drive%
  211. if not "%1"=="all" goto loop
  212.  
  213. Rem LDAP Disk 1
  214. :ldap1
  215. @echo Insert Simple Internet Address Book Services Disk 1 into drive %dk_drive% to copy files.
  216. pause
  217. copy bjldap\disk1\disk1.id %dk_drive%
  218. copy bjldap\disk1\emablt.doc %dk_drive%
  219. copy bjldap\disk1\emablt.inf %dk_drive%
  220. copy bjldap\disk1\emablt.wri %dk_drive%
  221. copy bjldap\disk1\setup.exe %dk_drive%
  222. copy bjldap\disk1\setup.ins %dk_drive%
  223. copy bjldap\disk1\setup.pkg %dk_drive%
  224. copy bjldap\disk1\uninst.exe %dk_drive%
  225. copy bjldap\disk1\_inst32I.ex_ %dk_drive%
  226. copy bjldap\disk1\_isdel.exe %dk_drive%
  227. copy bjldap\disk1\_setup.dll %dk_drive%
  228. copy bjldap\disk1\_setup.lib %dk_drive%
  229. if not "%1"=="all" goto loop
  230.  
  231. Rem LDAP Disk 2
  232. :ldap2
  233. @echo Insert Simple Internet Address Book Services Disk 2 into drive %dk_drive% to copy files.
  234. pause
  235. copy bjldap\disk2\disk2.id %dk_drive%
  236. copy bjldap\disk2\data.z %dk_drive%
  237. if not "%1"=="all" goto loop
  238.  
  239. Rem Disk set completed.
  240. goto finish
  241.  
  242. Rem Usage message
  243. :usage
  244. @echo.
  245. @echo Creates hi-density disk images on the specified drive.
  246. @echo This script must be run from the Lotus Mail installation directory.
  247. @echo.
  248. @echo Usage:    %0 [drive:] diskettes
  249. @echo.
  250. @echo   drive      - floppy drive containing disk; a: is the default.
  251. @echo.
  252. @echo   diskettes  - all          create all the disks.
  253. @echo              - disk#        create the Lotus Mail specified disk (1-8).
  254. @echo              - win95disk#   create the MAPI (Win 95) specified disk (1-3).
  255. @echo              - winntdisk#   create the MAPI Messaging (Win NT) specified disk (1-3).
  256. @echo              - ldapdisk#    create the Simple Internet Address Book specified disk (1-2)
  257. @echo.
  258. @echo Example 1: %0 b: all
  259. @echo.
  260. @echo Example 2: %0 a: disk1
  261. @echo.
  262. goto finish
  263.  
  264. Rem Unknown argument message
  265. :unk_arg
  266. @echo.
  267. @echo %0: Unknown argument %1
  268. goto usage
  269.  
  270. Rem End of script
  271. :finish
  272. set dk_drive=
  273.